home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / game / patch / ischd.lha / InterSportChallengeHD / Install_Game next >
Text File  |  1998-09-09  |  4KB  |  153 lines
  1. (set GameDir "SportsChallenge")
  2.  
  3. ;try to figure out a place where the user usually installs his games
  4. (if (exists "Games:" (noreq) )
  5.     (set @default-dest "Games:")
  6.     (if (exists "SYS:Games" (noreq) )
  7.         (set @default-dest "SYS:Games")
  8.         (if (exists "Work:Games" (noreq) )
  9.             (set @default-dest "Work:Games")
  10.             (if (exists "JEUX:" (noreq) )
  11.                (set @default-dest "JEUX:")
  12.                (set @default-dest "SYS:")
  13.             )
  14.         )
  15.     )
  16. )
  17.  
  18. ;ask the user to select a directory to install the game into
  19. (set default-dest
  20.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  21.                              "A drawer called " GameDir " will be created.")
  22.                      (help @askdir-help)
  23.                      (default @default-dest)
  24.                      (newpath)
  25.              )
  26.      GameDir
  27.      )
  28. )
  29. (set @default-dest default-dest)
  30.  
  31. (message "\n\n\nThis loader needs the JST program (NOT INCLUDED)\n to be copied in your path\n\n(if you don't have it already)\n\nJST is available from aminet (game/patch) or on my site")
  32.  
  33. ;create the selected directory
  34. (makedir @default-dest
  35.          (infos)
  36. )
  37.  
  38. (copyfiles (source "ischd.readme")
  39.            (dest @default-dest)
  40.        (infos)
  41.        (all)
  42. )
  43.  
  44. (copyfiles (source "IscHD")
  45.            (dest @default-dest)
  46.        (infos)
  47.        (all)
  48. )
  49.  
  50. (askdisk
  51.     (prompt    ("\n\n\n\n\n\nPlease insert %s disk 1 in any drive" @app-name))
  52.     (dest        "EMPIRE_ISC")
  53.     (help        "Insert disk 1 in any floppy drive\nor you'll wait for a while!")
  54. )
  55.  
  56. (copyfiles (source "EMPIRE_ISC:boot.prg")
  57.            (dest @default-dest)
  58. )
  59. (copyfiles (source "EMPIRE_ISC:choose.pkd")
  60.            (dest @default-dest)
  61. )
  62. (copyfiles (source "EMPIRE_ISC:control.atr")
  63.            (dest @default-dest)
  64. )
  65. (copyfiles (source "EMPIRE_ISC:control.dat")
  66.            (dest @default-dest)
  67. )
  68. (copyfiles (source "EMPIRE_ISC:disk.dat")
  69.            (dest @default-dest)
  70. )
  71. (copyfiles (source "EMPIRE_ISC:end.mod")
  72.            (dest @default-dest)
  73. )
  74. (copyfiles (source "EMPIRE_ISC:logo.pkd")
  75.            (dest @default-dest)
  76. )
  77. (copyfiles (source "EMPIRE_ISC:map.pkd")
  78.            (dest @default-dest)
  79. )
  80. (copyfiles (source "EMPIRE_ISC:map1.map")
  81.            (dest @default-dest)
  82. )
  83. (copyfiles (source "EMPIRE_ISC:marathon.atr")
  84.            (dest @default-dest)
  85. )
  86. (copyfiles (source "EMPIRE_ISC:marathon.dat")
  87.            (dest @default-dest)
  88. )
  89. (copyfiles (source "EMPIRE_ISC:marathon.mod")
  90.            (dest @default-dest)
  91. )
  92. (copyfiles (source "EMPIRE_ISC:marathon.pkd")
  93.            (dest @default-dest)
  94. )
  95. (copyfiles (source "EMPIRE_ISC:marble.pkd")
  96.            (dest @default-dest)
  97. )
  98. (copyfiles (source "EMPIRE_ISC:pistol.sam")
  99.            (dest @default-dest)
  100. )
  101. (copyfiles (source "EMPIRE_ISC:player.pkd")
  102.            (dest @default-dest)
  103. )
  104. (copyfiles (source "EMPIRE_ISC:refresh.pkd")
  105.            (dest @default-dest)
  106. )
  107. (copyfiles (source "EMPIRE_ISC:score.pkd")
  108.            (dest @default-dest)
  109. )
  110. (copyfiles (source "EMPIRE_ISC:split.pkd")
  111.            (dest @default-dest)
  112. )
  113. (copyfiles (source "EMPIRE_ISC:weather.pkd")
  114.            (dest @default-dest)
  115. )
  116.  
  117. (askdisk
  118.     (prompt    ("\n\n\n\n\n\nPlease insert %s disk 2 in any drive" @app-name))
  119.     (dest        "EMPIRE ISC")
  120.     (help        "Insert disk 2 in any floppy drive\nor you'll wait for a while!")
  121. )
  122.  
  123. (copyfiles (source "EMPIRE ISC:")
  124.            (dest @default-dest)
  125.        (all)
  126. )
  127.  
  128. (message "\n\n\nPlease REMOVE disk 2 and insert disk 3 in any drive")
  129.  
  130. (askdisk
  131.     (prompt    ("\n\n\n\n\n\nPlease insert %s disk 3 in any drive" @app-name))
  132.     (dest        "EMPIRE ISC")
  133.     (help        "Insert disk 3 in any floppy drive\nor you'll wait for a while!")
  134. )
  135.  
  136. (copyfiles (source "EMPIRE ISC:")
  137.            (dest @default-dest)
  138.        (all)
  139. )
  140.  
  141. (message "\n\n\nPlease REMOVE disk 3 and insert disk 4 in any drive")
  142.  
  143. (askdisk
  144.     (prompt    ("\n\n\n\n\n\nPlease insert %s disk 4 in any drive" @app-name))
  145.     (dest        "EMPIRE ISC")
  146.     (help        "Insert disk 4 in any floppy drive\nor you'll wait for a while!")
  147. )
  148.  
  149. (copyfiles (source "EMPIRE ISC:")
  150.            (dest @default-dest)
  151.        (all)
  152. )
  153.